﻿Public Class frmItemListView

    Private Sub frmItemListView_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Try
            rdbItemListType.CheckedIndex = 0
        Catch ex As Exception
            clscommon.ShowException(ex.Message)
        End Try
    End Sub

    Private Sub rdbItemListType_ValueChanged(sender As System.Object, e As System.EventArgs) Handles rdbItemListType.ValueChanged
        Try
            If rdbItemListType.CheckedIndex = 0 Then
                MyBase.ReportType = clscommon.ReportType.AvailableItem
            Else
                MyBase.ReportType = clscommon.ReportType.AllItem
            End If
        Catch ex As Exception
            clscommon.ShowException(ex.Message)
        End Try
    End Sub
End Class
